home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
frmweb1a
/
webbrows.frm
< prev
next >
Wrap
Text File
|
1999-10-12
|
53KB
|
1,706 lines
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form frmWebBrowser
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H8000000B&
Caption = "HCL Applications"
ClientHeight = 6315
ClientLeft = 3060
ClientTop = 3630
ClientWidth = 11880
Icon = "WebBrowser.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 6315
ScaleWidth = 11880
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin InetCtlsObjects.Inet ctlInet
Left = 7410
Top = 3240
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin RichTextLib.RichTextBox Text1
Height = 2985
Left = 30
TabIndex = 4
Top = 1350
Width = 5385
_ExtentX = 9499
_ExtentY = 5265
_Version = 393217
BackColor = 16777152
HideSelection = 0 'False
ScrollBars = 3
TextRTF = $"WebBrowser.frx":030A
End
Begin SHDocVwCtl.WebBrowser ctlWebBrowser
Height = 3060
Left = 60
TabIndex = 0
Top = 1350
Width = 5400
ExtentX = 9525
ExtentY = 5397
ViewMode = 1
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = -1 'True
NoClientEdge = 0 'False
AlignLeft = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = ""
End
Begin VB.Timer timer1
Enabled = 0 'False
Interval = 500
Left = 7440
Top = 2520
End
Begin VB.PictureBox picAddressContainer
Align = 1 'Align Top
Height = 435
Left = 0
ScaleHeight = 375
ScaleWidth = 11820
TabIndex = 2
TabStop = 0 'False
Top = 360
Width = 11880
Begin VB.ComboBox cboAddress
BackColor = &H00FFFFFF&
Height = 315
Left = 960
TabIndex = 1
Top = 30
Width = 5145
End
Begin VB.Label lblAddress
Caption = "Address:"
Height = 165
Left = 60
TabIndex = 3
Top = 90
Width = 825
End
End
Begin MSComctlLib.ImageList Imagelist1
Left = 7350
Top = 1830
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 17
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":03C4
Key = "tbrBack"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":0718
Key = "tbrForward"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":0A6C
Key = "tbrStop"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":0DC0
Key = "tbrRefresh"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":1114
Key = "tbrHome"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":12BC
Key = "tbrSearch"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":1610
Key = "tbrFavoritesList"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":3DC4
Key = "tbrPrintDesktop"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":40E0
Key = "tbrCapDesktop"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":43FC
Key = "tbrInbox"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":6BB0
Key = "tbrOutbox"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":7004
Key = "tbrContacts"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":7AD0
Key = "tbrListLinks"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":7C2C
Key = "tbrDisplayHTMLDoc"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":7F48
Key = "tbrSaveHTMLDoc"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":80A4
Key = "tbrPrintHTMLDoc"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WebBrowser.frx":83C0
Key = "tbrRestoreWebBrowser"
EndProperty
EndProperty
End
Begin VB.PictureBox picFavouritesListContainer
Align = 1 'Align Top
Height = 525
Left = 0
ScaleHeight = 465
ScaleWidth = 11820
TabIndex = 5
TabStop = 0 'False
Top = 795
Width = 11880
Begin VB.PictureBox picLinksListContainer
Appearance = 0 'Flat
BackColor = &H8000000B&
ForeColor = &H80000008&
Height = 465
Left = 0
ScaleHeight = 435
ScaleWidth = 11850
TabIndex = 17
TabStop = 0 'False
Top = 0
Width = 11880
Begin VB.ComboBox cboLinksList
BackColor = &H00FFFFC0&
Height = 315
Left = 930
TabIndex = 18
Top = 60
Width = 5115
End
Begin VB.Label lblLinks